home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / menu.dir / 00289_Script_289 < prev    next >
Text File  |  1983-01-30  |  675b  |  35 lines
  1. on startMovie
  2.   global cursprite,disaudio,dismu,percorso,foto_vid
  3.   set foto_vid to false
  4.   
  5.   if voidp(disaudio) then 
  6.     set disaudio to false
  7.   end if
  8.   
  9.   
  10.   global qualemusica,suonas
  11.   
  12.   
  13.   if voidp(qualemusica) then
  14.     set qualemusica to "blues"
  15.   end if
  16.   if voidp(percorso) then
  17.     set percorso to [:]
  18.   end if
  19.   
  20.   blocca
  21.   musiche_mare
  22.   -- suonom 1,suonas
  23.   
  24.   set cursprite to ""
  25.   set the mouseUpScript to ("if the doubleClick=TRUE THEN"&numtochar(013)&" ARCHIVIO"&numtochar(013)&"pass"&numtochar(013)&"end if")
  26.   set the mouseDownscript to "rit"
  27. end
  28.  
  29. on rit
  30.   --  toglimenubar
  31.   toglipopop
  32.   toglipopinv
  33.   blocca
  34.   pass
  35. end